String Manipulation In R With Regular Expressions Using Stringr And Glue